####
##Content analysis for selecting treatments in Survey 3
####

library(xtable)

load('survey3.content.pretest.RData')
survey3.content.pretest <- subset(survey3.content.pretest, !is.na(survey3.content.pretest$used))
summary <- survey3.content.pretest[,c('used','Input.headline','political.broad','slantdem','slantrep')]
names(summary) <- c('Category','Headline','Share Political','Dem Slant','Rep Slant')
rownames(summary) <- NULL

summary <- summary[order(summary$Category),]

#Content in Tables C4 and C5
xtable(summary,caption='Survey 3 Sports News Content')
